PROC main() DEF i FOR i:=0 TO 10 SELECT i CASE 0 TO 2 PrintF('Beginning\n') CASE 3 TO 8 PrintF('Working\n') CASE 9 TO 10 PrintF('Finishing\n') ENDSELECT ENDFOR PrintF('made loops: \d\n',i) ENDPROC
PROC main() DEF i FOR i:=0 TO 10 SELECT i CASE 0 TO 2 PrintF('Beginning\n') CASE 3 TO 8 PrintF('Working\n') CASE 9 TO 10 PrintF('Finishing\n') ENDSELECT ENDFOR PrintF('made loops: \d\n',i) ENDPROC